program prueba11;
(*ejemplo de procedimiento *)

procedure found(z : integer);  
var                                     
   x, y : integer;
   out: boolean;   

begin

x := 1;
y:= 2;

if (x<y) then
out := true;
else
out := false;
   
end;

begin
x := true; 
end.